home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03094_Script_OLD-NEW INVENTIONS < prev    next >
Text File  |  1996-04-01  |  828b  |  29 lines
  1. -- ---------------------------------------------------------------
  2. -- Handler isOldInvention returns TRUE if the given invention is
  3. -- an old invention and FALSE otherwise.
  4.  
  5. on isOldInvention whichInvention
  6.   set oldInventions = field "old Inventions"
  7.   
  8.   set theLine = BinSearchFirstItemInLine(oldInventions, whichInvention)
  9.   if (theLine < 1) then
  10.     return 0
  11.   else
  12.     return TRUE
  13.   end if
  14. end 
  15.  
  16. -- ---------------------------------------------------------------
  17. -- Handler isNewInvention returns TRUE if the given invention is
  18. -- a new invention and FALSE otherwise.
  19.  
  20. on isNewInvention whichInvention
  21.   set newInventions = field "new Inventions"
  22.   
  23.   set theLine = BinSearchFirstItemInLine(newInventions, whichInvention)
  24.   if (theLine < 1) then
  25.     return 0
  26.   else
  27.     return TRUE
  28.   end if
  29. end